home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Interactive 7
/
PC World Interactive 7.iso
/
program
/
pasprog.EXE
/
MUZIK.TXT
< prev
next >
Wrap
Text File
|
1980-01-10
|
4KB
|
65 lines
┌──────────────────────────────────────────────────────────────────────────┐
│┌────────────────────────────────────────────────────────────────────────┐│
││ ││
││ Müzik Editörü ││
││ ││
│└────────────────────────────────────────────────────────────────────────┘│
│ PS 31 · ₧ubat'96 Cenk Tarhan │
└──────────────────────────────────────────────────────────────────────────┘
Merhaba, program sanatçìlarì. Bu ay, ufak çapta bir müzik programì ile
karƒìnìzdayìm. Aslìnda bu programa bir müzik editörü demek biraz abartì ama,
daha uygun bir ad bulamadìm. Zaten bir editörde olmasì gereken, yazma
kaydetme ve tekrar yükleme iƒlemlerini yaptìºìna göre, bu programa bir editör
diyebilirmiyiz?
Programìmìz klavye olarak standart 101 tuƒlu klavyeyi kullanìyor. Üst iki
sìra birinci oktav, alt iki sìra ise ikinci oktavlar için çalìƒìyor. Klavye
düzenleri farklì olan arkadaƒlar programìn ilk satìrlarìndaki Const
bölümündeki "ust_tuslar" ve "alt_tuslar" string'lerini deºiƒtirerek
programlarìnì kendi klavyelerine adapte edebilirler. Bir konu da ekran
kullanìmì konusunda. Programì standart bir VGA kartìna göre yaptìm ama bazì
deºerlere Pascal'ìn Getmaxx ve Getmaxy deºiƒkenlerini kullanarak mümkün
mertebe ekranìn diºer grafik kartlarì için de uygun olmasìna çalìƒtìm.Yine de
deºiƒik grafik kartlarìnda problemler çìkacaktìr. Fakat birkaç sayìsal
deºiƒiklik ile bu problem halledilebilir gibime geliyor. Dikkat ederseniz
PC'ler (ekstra donanìmlar yoksa) yalnìz baƒlarìna müzik konusunda oldukça
verimsiz. Özellikle program yaparken ses efektleri, müzik vs.. eklemek
oldukça zor. Bununla beraber, sayìsal seslerin programlarìn büyüklüklerini
çok etkilemelerinden ve programcìlarì çok uºraƒtìrmalarìndan dolayì pek fazla
kullanìlmadìºì da bir gerçek. Fakat yine de programlarìnda müzik isteyenler
için bu programìn faydalì birkaç ipucu vereceºinden ve kendi program
ƒarkìlarìnìzì yaratìrken size yardìmcì olacaºìndan eminim. PC hoparlöründen
Pascal'ìn Sound() komutunu kullanarak ses çìkartmayì herkes biliyordur
sanìrìm. Fakat nota deºerleri konusunda elinizde faydalì bir döküman
olmayabilir, bu durumda programìma baƒvurabilirsiniz. Bu program klavyeyi
tarayarak uygun notayì vermekte, istenildiºinde çalìnan seriyi Real time
Clock'a bakarak diske kaydedebilmektedir. Real Time kullanmak çok önemli
çünkü yaptìºìnìz programda kullandìºìnìz PC ile programì çalìƒtìracaºìnìz PC
deºiƒik ise, zamanlama hatalarì olasìdìr, bu da yaptìºìnìz müziklerin
anlaƒìlmaz olmasìnì garantiler. Bu sorunu ben "zaman" adlì bir deºiƒken
kullanarak ufak bir kesme ile çözdüm. Saniyede 18.2 defa çaºìrìlan bu kesme
zaman deºiƒkeninin deºerini birer birer arttìrìyor. Böylece iki nota
arasìndaki zamanì hesaplayìp kaydedebiliyorsunuz. Baƒka bir sistemde bu
zamana baºlì olarak müziºi çaldìrdìºìnìzda herhangi bir sorun çìkmìyor.
Programìn biraz uzun olmasìnìn nedeni grafik ekranda çalìƒìyor olmasì. Diºer
programlarìmda olduºu gibi, bu programda da grafik ekranda çalìƒtìm. Bunun
nedeni artìk programlarìn grafik ortamlara taƒìnmasì. Yani tekst modundaki
programlarla pek ilgilenen çìkmìyor artìk. Bu yüzden benim programcì
arkadaƒlara tavsiyem Pascal ile programlama yaparken muhakkak grafik modunu
kullanmalarì. Bu ƒekilde daha interaktif ve daha etkileyici programlar
üretebilirler. Çaºìmìz ambalaj çaºì ne de olsa. Ayrìca Pascal programlarìnda
grafik kullanìmìnìn kolaylìºì da cabasì.
Programì biraz incelediºinizde, müzik dosyasìnìn DENEME.MUZ adlì bir dosya
olduºunu göreceksiniz. Bu dosya ismi deºiƒtirilebilir elbette. Hatta daha da
ileriye gidilerek bu dosya ismini deºiƒtirebileceºiniz menüler vs.. de
programa eklenebilir. Böylece daha geniƒ amaçlì bir program yaratìlabilir.
Sìnìrlì müzik olanaklarìmìzì neden tam kapasitesi ile kullanmayalìm ki?
Neyse, lafì uzatmadan programa geçelim. Program içinde açìklamalarì vs.. de
içinde var. Kolay gelsin...